home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 95 / 095.d81 / marketplace 95 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  67 lines
  1. 10 poke53281,0:poke53280,0:b$="        "
  2. 20 print"[147][129]           [204][207][193][196][211][212][193][210] [205][193][210][203][197][212][208][204][193][195][197]
  3. 30 [153]"    1  cont(NULL)rint (NULL)arketplace (NULL)rder ascorm
  4. 40 print"    2  [154][210]eturn to [204][207][193][196][211][212][193][210]
  5. 50 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]50
  6. 60 [139]a$[178]"1"[167]100
  7. 70 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  8. 80 [139]er[179][177]63[167] [128]
  9. 90 [153]"loadstopload"[199](34)"hello connect"[199](34)",8
  10. 92 print"run"
  11. 94 poke631,13:poke632,13:poke198,2:end
  12. 100 open4,4,7:close4
  13. 110 ifst<>-128then150
  14. 120 print"   [150][212]urn your printer on - press a key"
  15. 130 geta$:ifa$=""then130
  16. 140 goto20
  17. 150 open4,4,7:cmd4
  18. 155 fori=0to3:print:next
  19. 160 printb$" [195][193][212][193][204][207][199] #        [201][212][197][205]         [209][213][193][206][212][201][212][217]      [208][210][201][195][197]/[208][193][195][203]     [212][207][212][193][204]
  20. 170 [153]b$" ---------        ----         --------      ----------     -----
  21. 180 print
  22. 190 printb$"  916905        50 [196][201][211][203][211]                  [216]     $9.95    =
  23. 200 [153]b$"           5.25 inch (2 notch) --------                    -------
  24. 210 print
  25. 220 printb$"                                    [204]ouisiana residents
  26. 230 [153]b$"                                     add 4% sales tax      -------
  27. 240 print
  28. 250 printb$" [206]ame:"
  29. 260 printb$"       -------------------------------   [211]hipping/[200]andling"
  30. 270 printb$" [211]treet [193]ddress                             ([211]ee below)    -------
  31. 280 [153]b$"                ----------------------
  32. 290 print
  33. 300 printb$" -------------------------------------             [212][207][212][193][204]"
  34. 310 printb$"                                                           -------
  35. 320 [153]b$" lenity "
  36. 330 [153]b$"      --------------------------------
  37. 340 printb$" [211]tate                   [218][201][208]
  38. 350 [153]b$"       -----------------     ---------
  39. 360 printb$" [208]hone (     )
  40. 370 [153]b$"       -------------------------------
  41. 380 print
  42. 390 printb$" [208][193][217][205][197][206][212] [205][197][212][200][207][196]:
  43. 400 [153]b$"       (NULL)ayment enclosed ((NULL)ake check or money order payable to
  44. 410 printb$" -----                   [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199] in [213][211] [198][213][206][196][211] [207][206][204][217].)
  45. 415 [153]
  46. 420 [153]b$"       str$iscover            (NULL)len/(NULL)isa            atnm valx
  47. 430 printb$" -----               -----              -----
  48. 440 [153]
  49. 450 [153]b$" atnccount #                               valxp. str$ate
  50. 460 printb$"           -----------------------------           ---------------
  51. 470 [153]
  52. 480 [153]
  53. 490 [153]b$" (NULL)ignature
  54. 500 printb$"           -------------------------------------------------------
  55. 510 [153]b$" ((NULL)ffer expires mid$une 30, 1992.  atnllow 2 - 4 weeks for delivery.)
  56. 520 print
  57. 530 printb$" [211][200][201][208][208][201][206][199] & [200][193][206][196][204][201][206][199] [195][200][193][210][199][197][211]:  [213][208][211] [199]round - $4.25 first item;
  58. 540 [153]b$" $1.00 each additional item.  ascoreign - #12.50 each item.
  59. 550 print
  60. 560 printb$" [211]oftdisk [208]ublishing, [208].[207]. [194]ox 30008, [211]hreveport, [204][193]  71130-0008
  61. 570 [153]b$" 1-800-831-2694, or 1-318-221-8718
  62. 580 print
  63. 590 printb$"                                                        [205][208][204][211]95
  64. 600 [129]i[178]0[164]15:[153]:[130]
  65. 610 [160]4:[137]20
  66. 10000 [159]15,8,15,"s0:marketplace 95":[160]15:[148]"marketplace 95",8:[128]
  67.